﻿Imports QLTHUVIEN.DTO
Imports QLTHUVIEN.DAO
Public Class TheLoaiSachBUS

    Public Function layDanhSach() As DataTable
        Dim tlSachDao As New TheLoaiSachDAO()
        Dim dt As DataTable = tlSachDao.layDanhSach()
        Return dt
    End Function

    Public Sub themTheLoaiSach(ByVal tlSachDto As TheLoaiSachDTO)
        Dim tlSachDao As New TheLoaiSachDAO()
        tlSachDao.ThemTheLoai(tlSachDto)
    End Sub

    Public Sub suaTheLoaiSach(ByVal tlSachDto As TheLoaiSachDTO)
        Dim tlSachDao As New TheLoaiSachDAO()
        tlSachDao.SuaTheLoai(tlSachDto)
    End Sub

    Public Sub xoaTheLoaiSach(ByVal tlSachDto As TheLoaiSachDTO)
        Dim tlSachDao As New TheLoaiSachDAO()
        tlSachDao.XoaTheLoai(tlSachDto)
    End Sub

End Class
